#!/usr/bin/perl
#Descricao: Classe Ecommerce::Produto
#Criado por: Horacio Ibrahim horacioibrahim at gmail
#Criado em: 13set11
#
BEGIN { 
	unshift @INC, '/Users/horacioibrahim/Documents/workspace/WebServiceBambae/class'; }
	
package Produto;
use Ecommerce::Ecommerce;
use strict;
our @ISA = qw(Ecommerce);    # inherits from Ecommerce    
sub new 
{
	my ($class) = @_;
	# Call the constructor of the parent class, Person.
    my $self = $class->SUPER::new( $_[1], $_[2], $_[3], $_[4], $_[5] );
    # Add few more attributes    
		$self->{_produtoid} = undef; 
		$self->{_produtourls} = undef;
		$self->{_produtonome} = undef;
		$self->{_produtocodigo} = undef;
		$self->{_produtomenorpreco} = undef;
		$self->{_urlxpreco} = undef;
	bless $self, $class;
	return $self;
}
sub setProdutoId {
	my ($self, $produtoId) = @_;
	$self->{_produtoid} = $produtoId if defined ($produtoId);
}
sub getProdutoId {
	my ($self) = @_ ;
	return $self->{_produtoid};
}
sub setUrlsProduto {
	my ($self, $urlProduto) = @_;
	$self->{_produtourls} = $urlProduto if defined ($urlProduto);
}
sub getUrlsProduto {
	my ($self) = @_;
	return $self->{_produtourls};
}
sub setProdutoNome {
	my ($self, $produtoNome) = @_;
	$self->{_produtonome} = $produtoNome if defined ($produtoNome);
}
sub getProduto {
	my ($self) = @_;
	return $self->{_produtonome};
}
sub setProdutoMenorPreco {
	my ($self, $ProdutoPreco) = @_;
	$self->{_produtomenorpreco} = $ProdutoPreco if defined ($ProdutoPreco);
}
sub getProdutoMenorPreco {
	my ($self) = @_;
	return $self->{_produtomenorpreco};
}
sub setUrlPreco {
	my ($self,$Url,$Preco) = @_;
	$self->{_urlxpreco}->{$Url} = $Preco if defined ($Url) and ($Preco);
}
sub getUrlPreco {
	my ($self) = @_;
	return $self->{_urlxpreco};
}


1;

